home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Libris Britannia 4
/
science library(b).zip
/
science library(b)
/
HAM_RAD
/
PROPAGAT
/
1004A.ZIP
/
GAIN.BAS
< prev
next >
Wrap
BASIC Source File
|
1987-05-12
|
2KB
|
42 lines
5 PRINT"THIS PROGRAM CALCULATES CAPABILITY OF THE EQUIPMENT "
7 PRINT" ON BOTH ENDS OF A PATH. USE WITH TROPS PATH LOSS PROGRAM"
9 PRINT:PRINT" BY WA2TIF -- FROM 11/83 QST ARTICLE BY G3YGF"
10 PRINT
15 DIM S$(4):DIM BW(4):DIM NF(8)
20 BW(1)=300:BW(2)=1000:BW(3)=3000:BW(4)=10000
30 FOR I=1 TO 8: NF(I)=I:NEXT:GOSUB 1000
35 PRINT" CALCULATE RECEIVER ERP":PRINT
40 PRINT;"SELECT RCVR SELECTIVITY IN HZ FROM MENUE":PRINT
50 PRINT " 1 = 300 HZ 2 = 1000 HZ"
60 PRINT " 3 = 3000 HZ 4 = 10000 HZ" :PRINT
70 INPUT " RCVR SELECTIVITY IN HZ";BW :PRINT
80 PRINT "SELECT RCVR NOISE FIGURE FROM MENUE":PRINT
90 PRINT " 1 = 1DB 4 = 2DB 7 = 3DB 10 =4DB"
100 PRINT " 13 = 5DB 16 = 6 DB 7 = 19 DB 22 = 8DB"
110 PRINT:INPUT "RCVR NOISE FIGURE";NF
120 S$=S$(BW)
125 S$=MID$(S$,NF,3):S=VAL(S$)
130 PRINT;" RCVR SENSITIVITY";S" DB":PRINT
140 INPUT"ANTENNA GAIN IN DBI"; RG :PRINT
150 INPUT " FEEDLINE LOSS IN DB"; RL :PRINT
160 RG=S+RG-RL
170 PRINT,"RECEIVE GAIN ERP IN DB";RG
180 PRINT:PRINT"CALCULATE XMTR EIRP":PRINT
190 INPUT "INPUT XMTR OUTPUT POWER IN WATTS";PW
200 PD=10*LOG(PW)/LOG(10)+30
210 PD=INT(PD+.5)
215 PRINT:PRINT"XMTR PWR OUTPUT" PD" DB":PRINT
220 INPUT"GAIN OF XMTR ANTENNA (DBI)";GX :PRINT
230 INPUT "LINE LOSS (DB)";LX:PRINT
240 PG=PD+GX-LX:PG=INT(PG+.5)
250 PRINT,"XMTR EIRP ="; PG" DBW"
260 PRINT:PRINT:TG=PG+RG
270 PRINT,"TOTAL GAIN " TG" DB"
280 PRINT
990 END
1000 S$(1)="185181179177176174173172
1010 S$(2)="180176174172171169168167
1030 S$(3)="175171169167165164163162
1040 S$(4)="170164162160159158157156
1050 RETURN